home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / RemoveNoise2.AMOS / RemoveNoise2.amosSourceCode
Encoding:
AMOS Source Code  |  1995-12-27  |  1.9 KB  |  48 lines
  1. ' HAM image noise reduction. 
  2. ' Written by Chris Hodges (27-Dec-95). 
  3. ' Requires AMOS Pro and the AMCAF extension to run.  
  4. '
  5. Set Buffer 40
  6. ' THRESHOLD sets the noise threshold.  
  7. THRESHOLD=13
  8. Load Iff "dh1:grafik/dpaint/picture/misc/Claudia_Schiffer1.iff",0
  9. WX=Screen Width
  10. WY=Screen Height
  11. SM=Screen Mode
  12. Screen Open 1,WX,WY,4096,SM
  13. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  14. Get Palette 0 : Colour 0,0
  15. For Y=0 To WY-1
  16.   Screen 1 : HAM=Colour(0) : Screen 0
  17.   C00=Colour(0) : C10=C00 : C20=C00
  18.   C01=C00 : C11=C01 : C21=C01
  19.   C02=C00 : C12=C02 : C22=C02
  20.   For X=-1 To WX-1
  21.     If Y Then C20= Extension_8_09E8( Extension_8_039E(X+1,Y-1),C20) Else C20=Colour(0)
  22.     C21= Extension_8_09E8( Extension_8_039E(X+1,Y),C21)
  23.     If Y<WY-1 Then C22= Extension_8_09E8( Extension_8_039E(X+1,Y+1),C22) Else C22=Colour(0)
  24.     V00= Extension_8_03B2(C00)+ Extension_8_03C0(C00)+ Extension_8_03D0(C00)
  25.     V10= Extension_8_03B2(C10)+ Extension_8_03C0(C10)+ Extension_8_03D0(C10)
  26.     V20= Extension_8_03B2(C20)+ Extension_8_03C0(C20)+ Extension_8_03D0(C20)
  27.     V01= Extension_8_03B2(C01)+ Extension_8_03C0(C01)+ Extension_8_03D0(C01)
  28.     V11= Extension_8_03B2(C11)+ Extension_8_03C0(C11)+ Extension_8_03D0(C11)
  29.     V21= Extension_8_03B2(C21)+ Extension_8_03C0(C21)+ Extension_8_03D0(C21)
  30.     V02= Extension_8_03B2(C02)+ Extension_8_03C0(C02)+ Extension_8_03D0(C02)
  31.     V12= Extension_8_03B2(C12)+ Extension_8_03C0(C12)+ Extension_8_03D0(C12)
  32.     V22= Extension_8_03B2(C22)+ Extension_8_03C0(C22)+ Extension_8_03D0(C22)
  33.     V=V11*8-Sqr(V00*V00+V10*V10+V20*V20+V01*V01+V21*V21+V02*V02+V12*V12+V22*V22)
  34.     Screen 1
  35.     If V>THRESHOLD
  36.       P= Extension_8_09FC(C11,HAM)
  37.       HAM= Extension_8_09E8(P,HAM)
  38.        Extension_8_0388 X,Y,P
  39.     Else 
  40.       HAM= Extension_8_09E8(0,HAM)
  41.        Extension_8_0388 X,Y,0
  42.     End If 
  43.     Screen 0
  44.     C00=C10 : C10=C20
  45.     C01=C11 : C11=C21
  46.     C02=C12 : C12=C22
  47.   Next 
  48. Next